From: Jay Belanger Date: Fri, 17 Aug 2007 20:19:11 +0000 (+0000) Subject: (math-small-factorial-table): Remove `eval-when-compile's. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~17354 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=2ab12fae5f7ce72cd5a4f6a301ea5b9d006eb56f;p=emacs.git (math-small-factorial-table): Remove `eval-when-compile's. --- diff --git a/lisp/calc/calc-comb.el b/lisp/calc/calc-comb.el index 90a0a20f5d6..b6182cd710e 100644 --- a/lisp/calc/calc-comb.el +++ b/lisp/calc/calc-comb.el @@ -295,17 +295,16 @@ ;;; Factorial and related functions. (defconst math-small-factorial-table - (eval-when-compile - (vector 1 1 2 6 24 120 720 5040 40320 362880 3628800 39916800 - (math-read-number-simple "479001600") - (math-read-number-simple "6227020800") - (math-read-number-simple "87178291200") - (math-read-number-simple "1307674368000") - (math-read-number-simple "20922789888000") - (math-read-number-simple "355687428096000") - (math-read-number-simple "6402373705728000") - (math-read-number-simple "121645100408832000") - (math-read-number-simple "2432902008176640000")))) + (vector 1 1 2 6 24 120 720 5040 40320 362880 3628800 39916800 + (math-read-number-simple "479001600") + (math-read-number-simple "6227020800") + (math-read-number-simple "87178291200") + (math-read-number-simple "1307674368000") + (math-read-number-simple "20922789888000") + (math-read-number-simple "355687428096000") + (math-read-number-simple "6402373705728000") + (math-read-number-simple "121645100408832000") + (math-read-number-simple "2432902008176640000"))) (defun calcFunc-fact (n) ; [I I] [F F] [Public] (let (temp)